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SEQ 1 


B 1 


.REM 


IDENTIFICATION 


PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 


AC-E965G-MC 

CXRLAGO RL1 1 /RLV1 1 /RLV1 2/RL01 /RL02 
JUNE 1982 

DEC/X11 SUPPORT GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT 
BY DIGITAL EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1978.1982 DIGITAL EQUIPMENT CORPORATION 


1 . 


ABSTRACT 


RLA IS AN IOMODX THAT EXERCISES RL01/RL02 D*SK DRIVES ON 
RL11/RLV11/RLV12 CONTROLLERS. IT EXERCISES THE DRIVES BY DOING 
READ HEADERS, SEEKS, READS, WRITES AND IN-CORE COMPARISONS. 



SEO 2 


ER M 
0EC/X11 


C 1 
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ALL ERRORS DETECTED ARE REPORTED ON THE CONSOLE DEVICE. 


2. REQUIREMENTS 


HARDWARE: 1 TO A RL01/RL02 DISK DRIVES (WITH SCRATCH PACKS). 
1 RL11. RLV11 , OR RLV12 DISK CONTROLLER. 

STORAGE:: RLA REQUIRES 

1. r' :VL WORDS: 1445 

2. Oc v. WORDS: 2645 

3. OCTAL BYTES: 5512 


3. PASS DEFINITION 


ONE PASS OF THE RLA MODULE CONSISTS OF 20 X 100 CYCLES OF THE 
BASIC TEST SEQUENCE (READ HEADER. SEEK. READ HEADER. WRITE. 
WRITE CHECK. READ). THE TEST SEQUENCE WRITES 1024 WORDS. READS 
BACK THE FIRST 256. AND DATA CHECKS THE SAME. 


4. EXECUTION TIME 


ONE PASS OF RLA RUNNING ALONE ON A PDP-11/40 TAKES AP 
PROXIHATELV ONE MINUTE. 


5. CONFIGURATION REQUIREMENTS 


DEFAULT PARAMETERS: 

DEVADR: 174400. VECTOR: 160. BR1 : 5. DEVCNT : 1 

6. DEVICE/OPTION SETUP 


INSURE THAT ALL DRIVES UNDER TEST ARE POWERED UP. WRITE ENABLED. 
AND REAPY — AND OF COURSE. SCRATCH PACKS INSTALLED !!! 

IF MORE THAN 1 DRIVE. CHANGE DVID1 : (LOC 14*) ACCORDINGLY. 

IF RLV12 CONTROLLER. SET SRI: = 10 (LOC 16’, BIT 3). 


7 . 


SRI OPTIONAL SETUP 


BIT 0 - DROP DRIVE ON ERROR 

BIT 1 - RANDOM SEEKS 

BIT 2 - DON* T PRINT SOFT ERRORS 
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BIT 3 - CONTROLLER IS AN RLV12 


SEO 3 


ERROR REPORTING 


ON ERROR ALL REGISTERS ARE PRINTED IN THE FOLLOWING ORDER: 


RL11/RLV11 

RLV12 


RLCS RLBA RLDA RLMP DRIVE STATUS 
RLCS RLBA RLDA RLMP RLBAE DRIVE STATUS 


EDIT: BY: 


DATE: 


G.PAS0UINT0N10 MAY-81 


G.PASQUINTONIO MAY-81 


G.PASQUINTONIO MAY-81 


G.PASQUINTONIO MAY-81 


P. ANASTAS 


DEC-81 


REASON: 

"HNF" ERRORS WERE BEING 
REPORTED AS 'OPI". 

CONTROLLER ERROR ON 
WRITE-CHECK CAUSED A 
TERMINAL TABLE SEARCH 
(ULTIMATELY TRAPPING TO 4). 

'DROP ON ERROR" OPTION 
<$R1<0» NOT IMPLEMENTED 
CORRECTLY. 

RLV12 22 BIT UPGRADE. 

DATA CHECK ERRORS ON FLAGGED 
BAD SPOTS ABOVE CYL. 177 
24 DECIMAL PATCH LOCATIONS 
ADDED. 


SEQ 4 


E 1 
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000000 

000000 


OOOCOO 

000005 
000006 
)10 
>12 
>13 
>14 
000C16 





m 


174400 
000160 
240 
000 
11 


IOMODX 

MODULE 

.TITLE 

DDXCOM 


114 

040 


<RLAG >,174400,160.5.0,0,20. .146, BUFIN.256. .1024. 

1 50000, RL AG ,174400,160.$. 0,0, 20. .146.SuFIN.256. . 1024. 
RLAG DEC/X11 SYSTEM EXERCISER MODULE 
VERSION 6.4 28-JAN-82 

.LIST BIN 


101 





000000 

000000 



I Ml 



OEGIN: 

MODNAM: .ASCII 


XFLAG: 

ADDR: 

VECTOR: 

BR1 : 

BR2: 

DVID1: 

SRI: 

SR2: 

SR3: 

SR4: 


/RLAG / .'MODULE NAME. 


STAT: 
INI T : 
SPOINT: 
PASCNT : 
ICONT: 

I COUNT 

SOFCNT 

HRDCNT 

SOFPAS 

HRDPAS 

SVSCNT 

R ANNUM 

CONFIG 

RES1: 

RES2: 

SVRO: 

SVR1 : 

SVR2: 

SVR3: 

SVR4 : 

SVR5: 

SVR6: 

CSRA: 

SBADR: 

ACSR: 

WASADR: 

ASTAT: 

ERRTYP: 

ASB: 

AWAS: 

RSTRT: 

WDTO: 

WDFR: 

INTR: 

IDNUM: 

RBUFVA: 

RBUFPA: 


.BYTE 

OPEN 

.'USED TO KEEP TRACK OF 

174400*0 

;1ST DEVICE ADDR. 

160*0 

PRTY5+0 

.'1ST DEVICE VECTOR. 

.BYTE 

.-1ST BR LEVEL. 

.BYTE 

PRTY0*0 

;2ND BR LEVEL. 

0*1 


.‘DEVICE INDICATOR 1. 

OPEN 


.'SWITCH REGISTER 1 

OPEN 


; SWITCH REGISTER 2 

OPEN 


.SWITCH REGISTER 3 

OPEN 

4 * 444444*4444 

.'SWITCH REGISTER 4 

150000 


.‘STATUS WORD. 

START 


.‘MODULE START ADDR. 

MODSP 


.MODULE STACK POINTER. 


> 0 . 


0 

0 

0° 

°0 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

RESTRT 

OPEN 

OPEN 

Td H 

8UFIN 

OPEN 


PASS COUNTER. 

# OF ITERATIONS PER PASS*20. 

LOC TO COUNT ITERATIONS 

LOC TO SAVE TOTAL SOFT ERRORS 
LOC TO SAVE TOTAL HARD ERRORS 
LOC TO SAVE SOFT ERRORS PER PASS 

LOC TO SAVE HARD ERRORS PER PASS 

# OF SYS ERRORS ACCUMULATED 

HOLDS RANDOM « WHEN RAND MACRO IS CALLED 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
RESERVED FOR MONITOR USE 
LOC TO SAVE RO, 

LOC TO SAVE R1. 

LOC TO SAVE R2. 

LOC TO SAVE R3. 

LOC TO SAVE R4. 

LOC TO SAVE R5. 

LOC TO SAVE R6. 

ADDR OF CURRENT CSR. 

ADDR OF GOOD DATA, OR 
CONTENTS OF CSR. 

ADDR OF BAD DATA, OR 
STATUS REG CONTENTS. 

TYPE OF ERROR 
EXPECTED DATA. 

ACTUAL DATA. 

RESTART ADDRESS AFTER END OF PASS 
WORDS TO MEMORY PER ITERATION 
WORDS FROM MEMORY PER ITERATION 

# OF INTERRUPTS PER ITERATION 
MODULE IDENTIFICATION NUMBER:146 
READ BUFFER VIRTUAL ADDRESS 
READ BUFFER PHYSICAL ADDRESS 
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000252 



mm 



.y.V'.'. 

m 



i 

VVff 

VVtJ 

III'* 

ftp 

-tfo 




m 



7 003240 





003274 

000041 


005474' 


005424' 


104413 000000* 


ftBUFEA: OPEN 
RBUFSZ: 256. 
UBUFPA: OPEN 
WBUFEA: OPEN 
WBUFRQ: 1024. 
UBUFSZ: OPEN 
CDEftCT: OPEN 
COUDCT: OPEN 
FREE: OPEN 

.REPT 
.NLIST 
.WORD 
.LIST 
.ENDR 

RODSP: 


SPSIZ 


177636 
177626 
5 177624 


START: 


000000' 000124* 
88SofI 003114 

II 


RESTRT: 


RSTRT1: 


LOOPL: 


NOV #1024. .WDFI 

NOV #256..WDTO 

NOV A5.INTR 

NOV #57.NUNB 

NOV #-400.DRIVI 

NOV #1 . DRVNSK 

CLR DLTCNT 

JSR PC. SETUP 

NOV DVID1.DVICI 

CNPB #14.B*41 

BNE 7$ ^ 

NOV #1.R2 

NOVB i#40.R1 

BEO 5$ 

ASL R2 

DECB R1 

BNE 4$ 

BIT R2.DVICE 

BEO 7% 

ilC R2.DVICE 

NSGNI.BEGIN.DROPLD 
TST DVl£E 

BNE RSTRT1 

NSGNS, BEGIN. ABORT 
JNP FINf 

TST CNT 

BNE RSTRT1 

BR START 


CNKDRV: 




ENDirS, BEGIN 






;READ BUFFER EA BITS 
; SIZE OF THE REAP BUFFER 
; WRITE BUFFER PHYSICAL ADDRESS 
; WRITE BUFFER EA BITS 
.-WRITE SUFFER SIZE REQUESTED 
.-WRITE BUFFER SIZE AVAILABLE 
;CDATA/DATCK ERROR COUNT 
;CDATA/DATCK WORD COUNT 
.•RESERVED FOR FUTURE USE 
.•NODULE STACK STARTS HERE. 


1024. WORDS FROM MEM/ITERATION 
256 WORDS TO NEM/ITERATION 
5 INTERRUPTS/ITERATION 


SET DRIVE SELECT 
SETUP DRIVE SELECT MASK 
CLEAR DATA LATE COUNT 
GO SET UP REGISTERS 
COPY DRIVE SELECTION 
WAS RL LOAD DEVICE? 

Y-SEE IF LOAD UNIT SELECTED 


w suniHn, » vlk 

set up f6r MASK 
GET LOAD UNIT 
IF ZERO GO MASK OUT UNIT 
SHIFT MASK 
DEC COUNT 
KEEP CHECKING 
WAS THAT DRIVE SELECTED? 


N-6RANCH; Y-CONTINUE 
DELETE UNIT FROM DEVICE NAP 


ASCII MESSAGE CALL WITH COMMON HEADER 
ANY DRIVES SELECTED? 

YES CONTINUE 

ASCll MESSAGE CALL WITH COMMON HEADER 
MESSAGE. DROP NODULE 

♦ / SUPPORT 

♦ / FOR 

♦ / DT03 
♦/ 

.-GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 


.•SHIFT MASK FOR NEXT DRIVE 
; DRIVE MASK OVERSHIFT CHECK 
.•BRANCH IF MASK OK 
; RESET DRIVE SELECT MASK 


.RESET DRIVE SELECT 


.•SIGNAL END OF ITERATION. 
.-MONITOR SHALL TEST END OF PASS 
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10 000550 
■ 000554 



m » 


J® 

005067 002772 
005067 003026 
005067 003046 


00 003112 


CHKDRl : 

IS: ADD 


003102 


S8?XI§ 

8 m 1 

m 

8127I? 

0327#? 

P 

52767 

fe 


t V4V 


1 *TmT*T* 




644 002706 


*“1767 000002 177074 
000177 002670 

04417 


002634 



002642 

m 

002602 

002566 


m m 



#400,0! VE 
NUMB 

DRVMSK.DVICE 

LOOPL 

RETRY 

RWER 

CNT 


WE HAVE A DRIVE, START TESTING 


PC,WTRDY 
RS.DRVRTS 
#1 00077, MASK2 
#77724,FSTBSC 


2 $: 

LOOP: 


#7775Q.LSTBSC 
#1001 7 >. MASK 
#77600, LSTCYL 
#77700, LSTTRK 
#200,T.MP 
2S 

#100000, MASK 

#iooooo,lstcyl 

#1 00000, LSTTRK 

#100000,L$TBSC 

#1 00000, MASK2 

#iOOOOO.FS T BSC 

#201,DIFWD 

R5.RDHDR 

T.HP,HDRWD 


;NEXT DRIVE 

;IS THAT DRIVE PRESENT 
;N0, GO FOR NEXT ONE 
.‘CLEAR A FEU LOCATIONS 
.‘READ WRITE ERROR FLAG 
.‘COUNT 


ISSUE DRIVE RESET, CLEAR VOLUME 
SET UP FOR RL01 


.‘TEST RL01 OR RL02 
;RL01 BRANCH 
.-FIX FOR RL02 


.‘READ HEADER ON DISK 
.‘GET HEADER 


CHECK TO SEE IF RANOOM SEEK IS REQUESTED. BIT 1 OF SRI 
SET INDICATES A RANDOM SEEK OTERWISE SEEK IS INCREMENTAL 


BIT #B1T1 ,SR1 
BEQ TAG1 

BIC #177,HDRWD 

RANDS, BEG IN 

MOV »' R ° 

BIC MASK.RO 

MOV RO.DIFWD 

SUB HDRWD, DIFWD 

BCC IS 

NEG DIFWD 

BR 2S 

BIC #4, DIFWD 

BIS #1 .DIFWD 

BIT #l60,R1 

BED 3S 

BIS #§§, DIFWD 

MOV Rl, HDRWD 

BIC MASK2.HDRUD 

JMP TAG 2 


TAG1: 


#177 .HDRWD 
#177600, HD 


HDRUD 


INCREMENTAL OR RANDOM SEEKS? 

INCREMENTAL. TAG1 

CLEAR HEAD AND SECTOR BITS 

STORE IT AWAY 

SAVE A COPY 

CLEAR HEAD AND SECTOR 

LET'S CALCULATE DIFFERENCE WORD 

GET DIFFERENCE TO SEEK 

MAKE DIFF ABSOLUTE 

SET DIRECTION BIT 
SET MARKER 
TEST HEAD 

IF 0, DON'T SET HEAD IN DIFF 
SET HEAD 

GET EXPECTED HEADER 
CLEAR SECTOR BITS 


; CLEAR OUT SECTOR BITS S HEAD 
;0N TRACK 0? 
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001072 
001074 
1 001102 

2 001104 

3 001112 
' 001120 


267 0011 


- 

•Ju 







1 

73 


K'X 

vrv 

% 


>1234 

m 

>1256 






002502 

000200 

000100 

000221 


000004 
7 000200 


002520 1$: 

002510 

002502 

002476 

002466 2S: 

002454 

002444 3$: 
002440 4$: 


002426 


000754 


79 0012W 


9 001264 
° 001272 


016767 

mm 

& 


012767 

104405 



il 


000051 
000000 1 


001300 016767 003416 

h ei r 




000506 


TAG2: 


m 

002370 

» 

176614 

005500' 

002314 
002270 6$: 

002304 7S: 
002264 


'NO, GO CHECK FOR LAST CYLINDER 


05.DIFWD 

BR TAG2 

CMP LSTCYL.HDRWD 

BNE 2$ 

SUB #200.HDRWD 

BIS #100,HDRWD 

MOV #221.0IFWD 

BR TAG2 

BIT #4.DIFWD 

BEQ 3$ 

ADD #200.HDRWD 

BR 41 

SUB #200.HDRWD 

BIT #20.DIFWD 

BEO TAG2 

BIS #100.HDRWD 

JSR R5.SEEK 

JSR PC.WTRDY 

JSR R5.RDHDR 

MOV T.MP.CURADR 

BIC #77.CURADR 

CMP C^RADR.HDRWD 

NOV RLCS.CSRA 

MOV 8RLCS.ACSR 

MOV 8RLCS.ASTAT 

msgn$.begin.b6seek 

MOV #51 .ERRTYP 




DIF WD 1. MARKER. SEEK IN. HS-0 
SET CURRENT HD*0. SEEK IN 

CURRENT ADDRESS*LAST TRACK? 

NO. CONTINUE 


DIF WD 1. MARKER. SEEK OUT. HS-1 
SET CURRENT HD=1. SEEK OUT 

SN SET IN DIF WORD 
NO. 3$ 

YES. CYL WILL INCREMENT 
SKIP OVER 

NO. CYL WILL DECREMENT 
HEAD SET? 

NO. LEAVE EXPECTED ALONE 

YES. SET HEAD SELECT BIT 

PERFORM SEEK 

WAIT FOR SEEK TO FINISH 

READ HEADER VERIFY CORRECT 

SEEK 

READ HEADER 

CLEAR OUT SECTOR BITS 

WAS SEEK CORRECT? 

YES. CONTINUE 
NO REPORT ERROR 


; ASCII MESSAGE CALL WITH COMMON HEADER 
;BAD SEEK 


HRDERI. BEG IN. TABLE ;SEEK WAS BAD 

;*H**mHt»tHHtm«*t***»«t**«**»t***H»***»******ttt**«t44» 


CURADR.HDRWD 

HDRWD.LSTTRK 


NOV RBUFS 

NEG WCNT2 

GWBUFI. BEGIN 
MOV WBUFS 

NEG WCNT1 

JSR R5. WRITE 

TST RwfR 

BNE 5$ 

JSR R5.WRCHK 

& W' 

JSR R5.READ 


RBUFS2.WCNT2 

WCNT2 


WBUFS2.WCNT1 

WCNT1 


.•MAKE MISTAKE NEW HDRWD 

.-ARE WE ON LAST TRACK 
;N0, CONTINUE 

;YES. GO GET ANOTHER CAUSE ITS THE BAD SECTOR TRACK 

;GET BUFFER SI2E (READ) 

.•NEGATE FOR RLMP 

;GET WRITE BUFFER INFORMATION 

;GET BUFFER SI2E (WRITE) 

.•NEGATE FOR RLMP 
.•WRITE DATA 
; CONTROLLER ERROR ?? 

; SKIP READS IF SO. 

; ERROR ?? 

; SKIP READS IF SO. 

.•READ DATA 
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m 


767 002160 

000000' 000126' 


SSiflf 000001 

430 001404 
432 004567 000134 
1436 000167 177002 


000001 176366 5$: 


19 001442 005067 002120 

B II 002132 

001462 000167 177214 


1466 000167 


331 0015 


036777 

•m 

001401 
000207 



iSSSS 


001400 

07^777 

000001 


TST RUER 

BNE 5S 

||ATAS, BEGIN, RBUFPA 

BR 4S 

BIT #BIT0,SR1 
BEO 4$ 

JSR R5.DR0P 

JMP LOOPL 

CLR RUER 

INC CNT 

CMP #16., CNT 

BEQ 3$ 

JMP LOOP 

JMP LOOPL 


ERROR ?? 

SKIP DATA CHECK IF SO. 

REQUEST FOR MONITOR TO CHECK DATA 
IF ERROR, RETURN AT TAG 5$ 

BR IF NO DATA ERRORS. 

DROP ON ERROR ?? 

NO 

YES, DROP IT. 

...AND TRY ANOTHER. 


; REITERATE 16 TIMES/DRIVE... 
.-...THEN GET ANOTHER DRIVE. 


UAIT FOR DRIVE READY. DROP DRIVE IF IT NEVER COMES UP. 


002032 WTRDY: 
002024 
002074 
002010 1 $: 


#1400,8RLCS 

DRIVE.8RLCS 

#7777f,CLK 

#1,BRLCS 

2$ 

PC 


;SET UP TIMEOUT 
.-DRIVE HEADY? 

; NOT YET 

; YES, RETURN TO CALLER, 


535 

536 00154 

537 00154 

538 

001552 



BREAKS.BEGIN ; TEMPORARY RETURN TO MONITOR. . . . 

BREAKS, SEGIN ; THEN CONTINUE AT NEXT INSTRUCTION. 

DEC CLK .CHECK TIMEOUT 

BNE IS ; LOOP TIL TIMER EXPIRES. 

MOV #6,ERRTYP ; DRIVE NOT READY 

;********«*#**«#***************************************•******** 
HRDERS, BEGIN, RLCS {DRIVE NOT READY 

;***m»**Hm*m***oH**mmm*»*o*H****H»4*«»*t*«***« 

JSR R5.DR0P ; CLEAR DRIVE (DROP) FROM LIST. 

TST <SP>* ; FIX THE STACK... 

JMP LOOPL ;...AND GO FOR ANOTHER. 


104405 


III 


1572 
1572 
600 
606 

612 

6j0 


004567 

W® 


» 

000205 


000006 

OOuOOO' 

000006 

176652 


176334 

003532’ 


005726 

104410 

016700 


MB' m 


000000* 005420’ 


000000 ’ 


io 7 ?$ 


.-DROP CURRENT DRIVE. 
DROP: 


DROP NODULE IF NO DRIVES LEFT. 


F1N1 : 


MSGNS, BEGIN, DROPMS 
BIC DRVMSK.DVICE 

BEQ IS 

RTS RS 

MSGNS.BEGIN, NOLEFT 
TST (SPW 

ENDS, BEGIN 


{ASCII MESSAGE CALL WITH COMMON HEADER 
.•CLEAR THIS DRIVE BIT. 

; DROP MODULE IF NO MORE. 

; OTHERWISE, RETURN TO CALLER. 

.-ASCII MESSAGE CALL WITH COMMON HEADER 
; FIX STACK. 

.•DROP THE MODULE 


.-ROUTINE TO SET UP RL11 REGISTERS, VECTOR AND BR LEVEL 


Setup.* 


10067 001670 


ADDR.RO 

RO.RLCS 

(rA)+ 

RO.RLBA 


.-GET BASE ADDRESS 
{CONTROL REGISTER 
{INCREMENT FOR NEXT 
.•BUS ADDRESS 
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2256 


428 

429 

430 

431 002262 



000003 001334 GSTAT: 


432 002270 

433 002274 


m 


056777 

056777 

012777 

042777 

104400 


000013 

000104 

88 m 

001360 
002262 1 
000200 


001324 

001400 

881$6 

m 

001254 


002262 000004 000000' 002270 1 


'A 




f Ml* 


500 012767 
002506 104405 


■ ♦- 

•T» 

’iT» 

’iTi 


ill 

001202 


001136 


003 001 

004 001 


001110 
1104 001066 


001050 


1070 
5454 1 
5400 


005500' 

8818m 


BR 

GSTAT: MOV 

DRVRTS: MOV 
MOV 


EXEC; 


EXEC 

#3,3RLDA 

#13.8RLDA 

#104,FUNC 

#1416,8RLCS 
DRIVE. 8RLCS 
FUNC.8RLCS 
IINTSRV.8VECT0R 
#200,8RLCS 


EXITS, BEGIN 

• CONTINUE HERE ON RL INTERRUPT, 
iNTSRV: 

^IroiTbegi nIi s*" 


GET STATUS... 

. . .OR ... 

...RESET AND GET STATUS. 
GET STATUS FUNCTION. 

CLEAR THE OLD... 

...AND INSERT NEW DRIVE... 
...AND OPCODE BITS. 

SET UP INTERRUPT VECTOR... 
...AND EXECUTE. 


;GP-4 

;GP-4 

;GP-4 

;GP-4 

;GP-4 


;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT 


20 $: 


lit: 


991: 


981: 


; QUEUE UP TO CONTINUE AT 1$ AND RTI 


T.STAT 

RLCS.CSRA 

8RLCS.ACSR 

ACSR.T.CS 

8RLBA.T.BA 

8RLDA.T.DA 

ffcwr 

8RLBAE.T.BAE 

T.CS 

11$ 

RETRY 

R5 

RUER 

8NULLX.HTYPE 

8BIT14.T.CS 

#3,8RLDA 

84.TNP 

DRIVE.TMP 

TMP.8RLCS 


BREAKS, BEGIN 
BREAKS, BEGIN 

HJ »|Jo.«ics 

MOV 8RLMP. T.STAT 

MSGNS .BEGIN, DRVERR 
NOV 86.ERRTYP 


.‘LOAD ADDR OF CSR 
.‘LOAD CONTENTS OF CSR 


.‘TEST IF RLVI2 CONTROLLER 
;BR IF NOT 
.GET EA BITS 
.•ANY ERRORS 

.‘YES. CONTINUE TO CHECK 
;N0, RETURN CALL+4 SKIP RETRY 


; SETUP FOR NULL PRINT 
.‘DRIVE ERROR 
,* NO, BRANCH 
.‘GET STATUS 


.‘TEMPORARY RETURN TO MONITOR.... 
.‘THEN CONTINUE AT NEXT INSTRUCTION. 


.‘ASCII MESSAGE CALL WITH COMMON HEADER 
.'DRIVE ERROR 


GP-4 

GP-4 

GP-4 


ftRDERI.BEGIN, TABLE 


I13.8RLDA 

TMP.8RLCS 


BREAKS, BEGIN 


.‘TEMPORARY RETURN TO MONITOR.... 





mmooTi 
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0177 
2777 

W 

016777 

004767 


016700 000460 

“5067 

5067 


17656 




1 76272 




000444 

000464 


00416 


550 003226 

m 

I 003244 


104403 

004567 

000167 

11 


000400 


HDRWD.RO 
# 100.R0 

ro.r! 

R1.BRLDA 
#25,BRLDA 
DRIVE, MFLG 
#6, MFLG 
MFL$, BRLCS 
PC.WTRDY 


PRESENT POSITION 
CLEAR OUT HEAD 
CALC SEEK DIFFERENCE 
LOAD SEEK DIFFERENCE 
SET HEAD 1, SEEK IN 
SELECT DRIVE. (MFLG UESD) 
SET UP SEEK 
SEEK 

WAIT FOR SEEK TO FINISH 


;NOW SITTING ON LAST TRACK, RECOVER BAD SECTOR FILES AND COMPARE 


000372 

000356 

000344 

000336 


000350 

000000* 005450* 
1 7520? 

000326 


174644 

000010 

000176 


99$: 


44$: 


;PA005 ASR 


005373' 002134 5$: 
000110 000262 


LSTTRK,RO 

MFLG 

FND 

RO.BRLDA 
#-256.,a*LMP 
#21 5, BRLCS 

pc,s£trba 

DRIVE, BRLCS 

#200,BRLCS 

PC.WTRDY 

BRLCS 

4$ 

#4,R0 

3$L6 

FSTBSC,RO 

2 $ 


MSGN$, BEGIN, NOSEC 
JSR R5,DR0P 

JMP LOOPL 

CMP LSTBSC,RO 

SS E & 

MOV RBUFVA.Rl 

ADD #10.R1 

#126., R2 
(R1)4,R3 
88S 

si 

Kt!,. 

5$ 

8100.R3 
#HCRC,HTYPE 
6 $ 

#110,FUNC 



.•STARTING SECTOR 0 

.'SWITCH TO TELL US MANUF OR FIELD FILE 
.'FLAG TO INDICATE HEADER FOUND IN LIST 
.'LOAD SECTOR TO READ 
;TWO SECTOR READ 
; READ COMMAND 
; BUFFER ADDRESS. 

; INSERT DRIVE 
; EXECUTE IT. 

.'WAIT FOR DRIVE 
;READ SUCCESSFUL?? 

.‘YES, GO CHECK FOR SECTOR 

;N0. NEXT SECTOR 

.'WHICH WE READING, MANUF OR FIELD 
.'FIELD COMPARE AGAINST 77750 
.•MANUFACTURING. AT END 
;N0, GO BACK AND READ NEXT 


.'ASCII MESSAGE CALL WITH COMMON HEADER 


AT END OF FIELD BAD 

NO, GO BACK 

YES GO DROP DRIVE 

GET WHERE WE READ 
SKIP PAST I.D. ETC... 
ONLY 126 ENTRIES 
GET CYLINDER 
MINUS WE'RE DONE 
GET TRACK AND SECTOR 
ALIGN PROPERLY 


,*1S ERROR HCRC? 

.‘NO. GO LOOK FOR BAD SECTOR 
;WE*RE WE DOING READ HEADER 




















RLAG DEC/X11 SYSTEM EXERCISER M MACRO M1200 02-SEP-82 14:57 PAGE 3-10 
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634 003602 

635 003604 



639 003614 

640 003616 

641 003620 

642 003622 

643 003624 





05015 


652 004724 

653 0047** 

654 0047 — 

655 004732 

656 004734 


659 004742 

660 004744 

661 004746 


663 004750 



005073' 
005107' 
3' 

7 9 

005065' 

005060' 

005404* 


LSTBSC: 

MASK: 

LSTCYL: 

LSTTRK: 

MASK2: 

CLK: 

CNT : 

MULDRV: 

DLTCNT: 

FUNC: 

HDRWD: 

DIFWD: 

DRIVE: 

DVICE: 

WCNT1 : 

WCNT2: 

BUFIN: 

BSECBF: 

CURMSG: 

CURADR: 

NXTADR: 

NUMB: 

FNCLST : 


040 MES1: 
111 
123 
122 
105 
040 

040 MES2: 
111 
123 
105 
040 

111 MES3: 
040 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.BLKW 

■BLKW 

.WORD 

.WORD 

.WORD 

.WORD 

NULLX 

MES8A 

MES9 

MES6 

MES5 

MES8 

MES7 

NULLX 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

256. 

25. 

0 

0 

0 

0 


.•NUMBER OF DATA LATE ERRORS 
.-FUNCTION TO BE PERFORMED 
.-HEADER WORD (RDHDR. R/W) 
.-DIFFERENCE WORD (SEEK) 
.-DRIVE UNDER TEST (BITS 8.9) 
; WORKING "DVID1" 

.-WORD COUNT (WRITE) 

;WORD COUNT (READ) 

.-BAD SECTOR LIST 


OPCODE 0 UNUSED. 

1 = WRT CHK. 

2 = RESET OR GET STATUS. 

3 = SEEK. 

4 = READ HEADER. 

5 * WRITE. 

6 = READ. 

7 = READ NO-HEADER (UNUSED) 


.ASCIZ 'NO DRIVES PRESENT X' 


.ASCIZ 'NO DRIVES LEFT X' 


.ASCIZ 'DRIVE ' 


104 1 22 MES4: .ASCIZ ' DROPPED X' 

120 120 

104 040 

1^5 101 MES5: .ASCIZ 'READ HEADER' 

040 110 

1?2 000 

105 105 MES6: .ASCIZ 'SEEK' 




'WRITE-CHECK' 


'DRIVE RESET' 

' RETRY LIFIIT EXCEEDED*' 

'XSEEK TO WRONG CYLINDERS' 

'DATA LATEX' 

'DRIVE ERRORS' 

'SOFT ERROR ' 

•RLX LOAD UNIT DROPPED* 

'HARD ERROR ' 

'CANT RECOVER BAD SECTOR FILES 
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CONTROL AND STATUS REGISTER 

BUS ADDRESS REGISTER 

DISK ADDRESS REGISTER 

DISK DATA BUFFER ADDRFSS 

T.BAE ;HA$ STATUS ON DRIVE ERROR ;GP-4 

T.STAT {TERMINATOR ;GP-4 

TERMINATOR 

24 DECIMAL PATCH LOCATIONS ;PA005 


F 
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SYMBOL TABLE 


ABORT 
AC SR 
AODR 
ABOR22- 
APTPREs 
ASB 
ASTAT 
AUTO = 
AWAS 
BDSEEK 
BEGIN 
BITO * 
BIT1 a 
BITIO « 
BIT11 * 
B1T12 * 
BIT13 * 
BIT14 * 
BIT15 a 
BIT2 * 
BIT3 a 
BIT4 a 
BIT5 = 
B1T6 * 
BIT7 * 
BITS = 
BIT9 a 
BREAKS* 
8R1 
BR2 
BSECBF 
BTOOS * 
6UFIN 
CAPRES* 
CDATAfa 
CDERCT 
CBWOCT 
CHKDRV 
CNKOR1 
CKHNGfa 
CLK 

CLKPREa 

CLKSPSa 

CNT 

CONFIG 

CR 

CSRA 

CURAOR 

CURMSG 

DATCKS* 

DATERS* 

DCK 


005424R 
0001 02R 
000006R 
001000 



000110R 
005470R 
OOOOOOR 
000001 


000010 

000020 


000100 

000200 


1044 


000506R 



■411 
1044M 
00536: 


DIFWD 

OLT 

DLTCNT 

DRIVE 

DROP 

DROPLD 

DROPMS 

DRVERR 

DRVMSK 

DRVRTS 

DVICE 

DVID1 

EA18 

EA22 

ECCMEM= 

ENDITSa 

ENDS a 

ERRTYP 

EXCEED 

EXEC 

EXITS a 

F1NI 

FNCLST 

FND 

FNDBSC 

FREE 

FST8SC 

FUNC 

GETPASa 

GSTAT 

GUBUFSa 

HARD 

HCRC 

HDRWD 

HNF 

HRDCNT 

HRDERSa 

HRDPAS 

HRDRPT 

HTYPE 

ICONT 

ICOUNT 

IDNUM 

IMODX.* 

INDPARa 

INI T 

INTR 

INTSRV 

KTPRES* 

KTXTND= 

LIMIT 

LOOP 



005474R 
00541 OR 
005454R 
003572R 
002204R 
003630R 
000014R 
002042R 
002046R 
000100 
104413 
104410 
0001 06R 
005430R 
002220R 
104400 
001622R 
004 73 OR 
003570R 
042R 


m 

14 


LOOPL 
LST8SC 
LSTCYL 
LSTTRK 
MAP22S* 
MASK 
MASK2 
MES1 
MES10 
MES11 
MES12 
MES13 
NES14 
MES15 
NES16 
HES2 
ME S3 
MES4 
MESS 
MES6 
MES7 
to SB 
MES8A 
MES9 
MFLG 
MODN 
MODSP 
MSGN8 a 
MSGSS » 
MSGS a 
MULDRV 
NBDSC 
NCPUOPa 
NOAPTYa 
NOLEFT 
NORPT 
NOSEC 
NULL a 
NULLX 


444R 
57 



003604 R 

104416 

003600R 




004750R 
0051 23R 
0051 52R 
005203R 
00521 
005233R 
005251R 
005277R 
004 774 R 
00501 5R 
005024R 
005037R 
00S053R 
005060R 
005065R 
005073R 
005107R 
003564R 


10440 
104402 
104401 
03614R 
00531 5R 
000020 


< • • • 


005420R 


NXM 
NXTADR 
OPEN a 
OPI 

OTOAS a 
PARPREa 
PAS CNT 
PATCH 

P M§ 

PA22 
PDPF 1 1 * 
PDPLSI* 



R? 16 R 

02040R 
I02044R 
0000021 
0200001 


• **• m, x 

ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 13181 UORDS ( 52 PAGES) 


2 


SEO 18 




CT'M'I'I'N 





SETW8A 

SOFCNT 

SOFERS* 

SOFPAS 

SOFT 

SPOINT 

SPSIZ a 

SRI 

SR2 

SR3 

SR4 

START 

STAT 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCNT 

TABLE 

TABLET 

TABLEZ 

TAG 

TAG1 

TAG 2 

TER1 

TMP 

TRPDFDa 

T.BA 

T.BAE 

T.CS 

T.DA 

T.MP 

T.STAT 

USTACKa 

VECTOR 

UASADR 

WBUFEA 

UBUFPA 

UBUFRQ 

UBUFSZ 

UCNT1 

WCNT2 

UDFR 

WDTO 

WRCHK 

WRITE 

WTRDY 

XFLAG 


001730R 
000042R 
104406 
000046R 
005460R 
000032R 
000040 
0C0016R 
000020k 
000022R 
000024R 
000252R 
000026R 
000062R 
000064R 
000066R 
000070R 
000072R 
000074R 
000076R 
000052R 
005500R 
00551 OR 
00551 2R 
00071 4R 
001040R 
001174R 
005442R 
003546R 
000023 
003552R 
003560R 
003550R 
003554R 
003556R 
003562R 
000001 
00001 OR 
0001 04R 
0001 36R 
0001 34R 
000140R 
000142R 


•HM.vy: 


003634R 
0001 16R 
0001 14R 
002050R 
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XRLAGO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE . 


ADR22 

APTPRE 


ASTAT 

AUTO 

AWAS 

fiDSEEK 

BEGIN 


BITO 

am 


9IT11 

iIT12 


BIT14 

Bins 

BIT2 


BITA 


BSECBF 


CDATAS 

CDERCT 

comer 

CHKDRV 

CHKDRl 


000106 R 
000104 R 

000110 R 
005470 R 
000000 R 



BIT? * 
BREAKS = 




MACRO ON 2-SEP-82 AT 

REFERENCES 
|-1 83 #3-699 

#1-1 58 *3-285 


#3-158 

#3-158 

Am 

# p 

3-431 

3-505 

#3-158 

#3-158 

#3-158 

#3-158 

#3-158 

#3-158 

#3-1 U 

1:1111 

#3-158 

sii! 

#3-158 

#3-649 

# 1-158 

#3-197 

*1-2^- 

#3-650 


3-§?5 


*3-286 

#3-723 
3-180 
334 


3-490 

3-363 


1—334 

1—371 


#3-648 

3-312 

3-193 

*3-335 

*3-205 


14:57 


*3-434 


Hi 

3-455 

3-510 


3-483 


3-385 


3-334 


3-435 


3-189 

3-338 

3-459 

3-550 


3-439 


3-455 


#3-198 


#3-637 


*3-320 

3-321 


3-720 

3-292 


H 2 


SEO 20 


3-197 

3-345 

3-461 


3-235 

3-349 

3-464 


3-287 

3-351 

3-464 


3-290 

3-387 

3-492 


3-300 

3-427 

3-494 


3-455 3-464 3-464 


#3-638 


#3-65? 




SEQ 21 


I 2 


*3-244 

3-423 

3-201 

3-201 


*3-245 

3-453 

3-346 

•3-346 


*3-248 

3-524 

#3-630 

#3-645 


*3-257 

3-538 


*3-264 

3-601 


*3-493 

#3-422 


#3-631 

*3-415 *3-420 3-424 3-501 


*3-250 


V. 


74 

98 


*3-253 

3-281 

#3-642 


3-254 

*3-292 


*3-256 

3-294 


3-574 


3-260 

3-403 


*3-481 


*3-486 


*3-488 


3-504 


3-509 




J 2 


SEQ 22 


3-341 3-552 

3-593 # 3-634 

# 3-635 


3-545 

3-586 

* 3-588 

* 3-601 

* 3-602 

3-345 

3-349 

3-459 

3-492 

3-505 


3-692 









XRLAGO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


003536 R 


RLHP 


R6 

R7 

SBADR 



40 R 
R 
R 
R 
R 


SET CNN 

SETRBA 

SETUP 

SETUBA 

SOFCNT 

SOFERS 

SOFPAS 

SOFT 

SP01NT 

SPSIZ 

SRI 

SR2 

SR3 

SR4 

START 

STAT 

SVRO 

SVR1 

SVR2 

SVR3 

SVR4 

SVR5 

SVR6 

SYSCNT 

rmu 

TABLE Y 
TABLEZ 

1ft 

T r$l 

TMP 

TRPDFD 


‘AVi 

Ms 


R 
R 
R 
R 

26 R 


MACRO ON 2-SEP-82 AT 14:5? 


REFERENCES 

3-384 

3-463 

*3-360 

m 

#3-490 


*38 

#3-158 

#3-158 

#3-158 

3-275 

#1-380 

#ll377 

#3-158 

#3-158 

#3-158 

3-492 

#3-158 

#1-28 

|j! 

p 

#3-158 

#3-158 

#3-158 

#3-158 

#3-158 

9 

3-251 

*3-504 

*3-452 

#3-158 

#3-158 

#3-158 

#1-158 

#3-158 

#3-158 

#3-158 


422 


465 

3*526 

403 

3-408 

5 22 

3-523 

402 

3-407 

607 



3-186 

3-304 


#3-411 

#3-312 

3-409 

#3-355 

3-404 

3-494 

#3-718 

3-158 

3-232 


#3-160 


jbli 

*11 

*3-453 

i-iis 

m 

3-158 

m 


#3-188 

3-307 


3-53 7 


3-314 


3-18 7 


3-494 


3-454 

3-158 

3-158 

m 




SEQ 25 


m 2 


XRLAGO CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 

003552 R 

mm r 

003550 R 


T. 

T 

T.CS 


T.DA 

T.MP 

T.STAT 

USTACK 

VECTOR 

VASADR 

WBUFEA 

UBUFPA 

WBUFRQ 

WBUFSZ 

WCNT1 

WCNT2 


WRITE 

WTRDY 

XFLAG 


$562 
31 
000010 
000104 
000136 

■TO 

oo f* r 
002 
3116 

00?050 

ioooo! 


R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 

R 


MACRO ON 2-SEP-82 


#3-622 
*3-4 A 1 
3-AA2 



"-301 

xm 




3-369 

3-378 

3-377 

3-301 

*3-302 

*3-299 

*3-160 

*3-161 

#3-399 

#3-401 

3-276 


AT 14:57 


PAGE 6 
CREF 


V01 


3-732 

#3-625 

3-449 

3-468 

3-472 

3-475 

3-580 

3-279 

*3-458 

&1SI 

#3-626 

3-733 

•Hi 

3-734 

3-425 




3-402 

3-407 

#3-646 

#3-647 



#3-328 

3-527 

3-540 

3-604 


3-479 3-483 #3-621 



SEQ 26 


H 2 


BREAK 

BTOD 

CKDATA 

CLKSP 

datack 

OATERR 

DFSEV'N 

DSEVNT 

END 

ENOIT 

ENDMOO 

EQUATS 

EXIT 

6ETPA 

GWBUFF 

HLF8RK 

HRDER 

iomoo 

iobodp 

1CMODR 

IOMODX 

NAP22 

MODULE 


MSGS 

NBKMOD 


CREATED BY MAC 
I REFERENCE 

REFERENCES 

#1-124 

# 1-222 

#1-246 

#1-282 

#1-149 

#1-291 

#1-175 

#1-314 

3-158 

#1-324 

# 1-212 

#1-203 

#1-208 

#1-330 

#1-157 

#1-273 

#1-261 

#1-227 

#1-165 

# 1-120 

#1-144 

#1-140 

#1-136 

#1-277 

#1-29 

#1-191 

#1-195 

3-510 

#1-199 

#1-132 

#1-23? 

#1-216 

#1-161 

#1-128 

#1-181 


NACRO ON 2-SEP-82 AT 14:57 


PAGE 7 
CREF V01 


3-334 

3-312 


3-158 

3-158 

3-158 

3-351 

3-197 

3-158 

3-427 

3-189 

3-300 

3-290 


3-158 

3-387 

3-158 

3-180 

3-550 


3-431 

3-235 


3-455 


3-464 


3-158 

3-158 

3-158 


3-158 

3-158 


3-338 


3-461 


3-183 


3-287 


3-345 


